ae 


—————————————————————eE 


DDDDDDDDDDDD 
DDDDDDDDDDDD 


DODDDDDDDDDD 
DDD DOD 


DDDDDDDDDODD 
DDDDDDDDDODD 


) DDD 
DDDDDODDDDDD 


ee 
as oe Oe 
mmm 


ee ae ns Oe ee Bes De Be Be es Od Bd ne Bd Bs Bo Oa bane Be ee eo 
ee eee ee 
Ge cin ey en Deeg Ee bet Oe Lee es Bs Dene ne Oe Dee Pd Ge bd ee Gt 
MMMMMMMMMMMMMMMenMMMmrmnceniecry 
MMMM MMMMMMMMMMMmMmMmnenicrniey 
MMMMMMMMMMMMMMMMMMmmMencnicny 


BBS SSSSVSSESSSS IE 


*eF ILE**1D**XADRIVER 


XX XX AAAAAA DDDDDDDD RRRRRRRR III VV VV EEEEEEEEEE RRRRRRRR 
XX XX AAAAAA DODDDDDD RRRRRRRR IIIII1 VV VV EEEEEEEEEE RRRRRRRR 
XX XX AA AA DD DD RR Il VV vv EE RR RR 
XX XX AA AA 0D DD RR RR II VV VV EE RR RR 

XX = XX ‘al AA 0D DD RR RR Il VV VV EE RR RR 

XX XK BA AA 0D DD RR Il VV VV EE RR RR 

XX BB AA 0D DD RRRRRRRR Il VV VV EEEEEEEE RRRRRRRR 
KX AA AA 0D DD RRRRRRRR Il VV VV oe RRRRRRRR 

XX = KX AAAAAAAAAA DD DD RR RR Il VV VV EE RR RR 

XX = XX AAAAAAAAAA DD DD RR RR Il VV VW EE RR RR 
XX XX AA AA OD DD RR RR Il VV VV EE RR RR cece 
XX XX AA AA 0D DD RR RR Il VW VV EE RR RR eeee 
XX XX AA AA DDDDDDDD RR RR IIIII1 VV EEEEEEEEEE RR RR cece 
XX XX AA AA DDDDDDDD RR RR IIIIII VV EEEEEEEEEE RR RR eos 
LL III SSSSSSSS 
LL IIIT] SSSSSSSS 
LL II SS 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SS 
LLELLLLLLLL III] SSSSSSSS 
LLLLLLLLLL LIN SSSSSSSS 


aut 


—E eee 


4 IVER 

Table of contents 
(2) 
(83 
(4) 
(5) 
(9) 41 
(7) 47 
(10) 93) 
(11) 974 
1¢ 1047 
(15) 1996 
(14) 114 
(15) 1590 
(16) 1256 


K 15 
= VAX/VMS DR11-W DRIVER 


External Wert local hveeet definitions 
me ge. pr ver Tab 
att Controller initialization 
XA “READ MORI TE T for device data transfers 
“SE TMODE Eset Mode: Set characteristics FDT 
START Start 1/0 routines 
DRTI<W DEVICE TIME-OUT 
XA_LINTERRUPT, Interrupt service routine for DR11-W 
* =REGISTER - Handle DR1l-W CSR transfers 
CANCEL, Cancel 1/0 rout tine, 
TTNAST, Deliver ATIN AST's 
XA A-REGDUMP DR11-W register duap routine 
XA_DEV_RESET = Device reset DR11- 


16-SEP-1984 00:14:45 VAX/VMS Macro v04-00 


Page 


0 


aut 


ooooo 


00 
0000 


SOOOoooooooooooooooooo 


OOoooo OOOOoCooooooooooooooSo 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


SOoOooooooooooooooooooooooooooo 


SoooooooSo 


ITT ES BS BS BB EWN nonononononononuny 3 2 


L 15 
KADRIVER = VAX/VMS DR11-W DRIVER 16-SEP-1984 00:14: X/VM 
MADR AYE 6-SEP-19 90: 4:45 VAX/VMS Mac 


NAME WN OOO NAME WIN HO OD NAME WN SO OO NAME WWN 3 OC OO NOU SW OWONOUE WN 


v04-00 
6-SEP-1984 2:52 DRIVER. SRCJXADRIVER.MAR; 2 


E XADRI fe = VAX/VMS DR11-W DRIVER 
wee she 


PARA ARAARARRARALARAAAALLALALALE LAL ESSE LESSEE ESET EERE EES ESE EEE EES ETS ETT cera 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 

® 

® 

* 

t 

* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
:# TRANSFERRED. 

*® 

;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
‘ OULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
® 

® 

* 

® 

® 

® 


AND SH 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH I 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


LARAAAAASAAAALALALALALELALESE ESSE ES ESE SESE REE R ERE SESE S EE ESSERE RRR REE EES So 


+ 
+ 


FACILITY: 
VAX/VMS Executive, 1/0 Drivers 
ABSTRACT: 
This module contains the DR11-W driver: 
Tables for loading and dispatching 
Controller initialization routine 
FDOT routine 
The start 1/0 routine 
The interrupt service routine 
Device specific Cancel 1/0 
Error logging register dump routine 
ENVIRONMENT: 
Kernal Mode, Non-paged 
AUTHOR: 


C. A. Sameulson 10-JAN-79 


MODIFIED BY: 
v04-001 JLV0395 Jake VanNoy 6-SEP-1984 


Page 


* 


® 
w« 
* 
® 
& 
* 
® 
® 
® 
® 
* 
® 
® 
® 
® 
® 
* 
® 
® 
® 
* 


a 


= VAX/VMS DR11-W DRIVER 


Ooo 


vi 
‘O-.Oco 


SOOOoOSoOOCSOOSOSoOSOOOSOOOOOSOSoSo 


SOOoOoOOoOOooOoOOoOoOoOoOooooOo 


SooQoooooeoo 
NNN NNSA A OAOOOAAOAO 


WONAUL WN OOONOUS Wh 


Coooooooo 


16-SEP-1984 00:14:45 VAX/VMS Re cro V04-00 Page 
pane 98:33:63 DRIVER.S REIX XADRIVER.MAR; 2 . dy 

Add AVL bit to DEVCHAR. 
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JLV0304 Jake VanNoy 24-AUG-1983 

Several bug fixes. Atl word writes to XA_CSR now have 

ATTN set so as to prevent lost interrupts. Attention 

AST List 3 aeneeronsese at pe 3 IPL in DEL_ATTNAST. 

Correct status is returned o mode ast that 
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KDM0059 Kathleen D. Morse 14-Jul-1983 
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| 
; -SBTTL External and Local symbol definitions 
¢ 3; External symbols 
00 § SACBDEF 3 AST control block 
0 SCRBDEF ; Channel request block 
000 3 SOCDEF 3; Device types 
000 SDDBDEF 3; Device data block 
00 0 SDEVDEF 3 Device characteristics 
00 91 SDPTDEF :; Driver prolog table 
35 SDYNDEF 3 pynente data structure types 
9 SEMBDEF : EMB offsets 
000 94 SIDBDEF : Interrupt data block 
44 95 SIODEF : 1/0 function codes 
00 38 SIPLDEF 3; Hardware IPL definitions 
0000 9 SIRPDEF : 1/0 request packet 
0000 98 SPROEF ; Internal processor registers 
44 99 SPRIDEF ; Scheduler priority increments 
000 100 SSSDEF : System status codes 
0000 13 SUCBDEF 3 Unit control block 
44 1 ¢ SVECDEF 3; Interrupt vector block 
000 10 SXADEF 3; Define device specific characteristics 
0000 104 
B80 133 3; Local symbols 
4444 1st 3; Argument List (AP) offsets for device-dependent Q10 parameters 
90900000 0000 109 1 = 0 ; First 010 parameter | 
00000004 0000 110 P = 4 : Second Q10 parameter 
00000008 0000 111 P = 8 3; Third Q10 parameter 
0000000C 0000 1 P4 = 12 ; Fourth Q10 parameter 
0000010 0000 113 P5 = 16 ; Fifth Q10 parameter 
0000014 8000 VW P6 = 20 3; Sixth Q10 parameter 
0000 118 3; Other constants 
Q00Q0000A 0000 118 XA_DEF_TIMEOUT = 10 ; 10 second default device timeout 
QOOOFFFF 0000 119 XA_DEF BUFSIZ = 65535 ; Default buffer size 
00000001 0000 120 XA_RESET_DELAY = <<2+9>/10> ; Delay N microseconds after RESET 
464 : 1 ; (rounded up to 10 microsec intervals) 
0000 «(1 5 3 DR11-W definitions that follow the standard UCB fields 
000 ' ¢ 3; *e# NOT E *e* ORDER OF THESE UCB FIELDS IS ASSUMED | 
000 1 6 SDEFINI UCB | 
000000A0 000 1 « =UCBSL_DPC+4 
OA 128 SDEF UCBSL_XA_ATIN ; Attention AST Listhead 
000000A4 O00A 129 ~BLKL 1 
AS 150 SDEF UCBSW_XA_CSRTMP ; Temporary storage of CSR image 
000000A6 AS 131 ~BLK 1 
OAG 1 § SDEF UCBSW_XA_BARTMP ; Temporary storage of BAR image 
000000A8 A 1 . 1 
A 134 SDEF UCBSW_XA_CSR ; Saved CSR on interrupt | 
000000AA A 135 ~BLK 1 
AA 1 $ SDEF UCBSW_XA_EIR : Saved EIR on interrupt 
OOOOO0OAC OOAA 1 ~-BLKW 1 
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AC 1 SDEF UCBSW_XA_IDR ; R i 
sacha AE 133 SDEF aes aa ’ res = i ieee 
— 80 143 SDEF uceeu.xa'ete "i WCR pate . Tas 
: t 
bt OB¢ 148 SDEF ucesu_xa'Phnee ; oa d Sh am re hh 
; tat 
ee OBS 123 SDEF wense_xa' bee a P a = mate 
: t t t 
10000088 00RS «148 SUEF —UCBSL_XATFRPR ” ‘ Nt Cae 
eteenae Spe 189 SDEF ueese. sa Pees ; P wi gf ee ices 
cameo $08 133 SDEF wcuts.ta' tone ; Sathps ip ee 5 eis 
oXAL ; Saved Datapath Register Number 
000000C2 Bors 138 -BLKW 1 : And Datapath Parity error flag 
44 133 ; Bit positions for device-dependent status field in UCB 
00c 157 $VIELD UCB,0,<- ; UCB device specific bit definitions 
00C2 158 <ATTNAST, .M>, = ; ATTN AST requested 
00Cc 159 <UNEXPT, ,M>,= 3; Unexpected interrupt received 
Oocs 160 > 
000000C2 00C 161 UCBSK_SIZE=. 
00C2 196 SDEFEND UCB 
4! 16 : ; 
8805 \ee ; Device register offsets from CSR address 
0000 166 SDEFINI XA 3; Start of DR11-W definitions 
0000 167 SDEF XA_WCR ; Word count 
00000002 0000 168 -BLKW 1 
0002 169 SDEF XA_BAR ; Buffer address 
00000004 0002 170 -BLKW 1 
0004 171 SDEF KA_CSR ; Control/status 
0004 76 
0004 17 
9 We ; Bit positions for device control/status register 
00064 176 SEQULST XASK_,,0,1,<- ; Define CSR FNCT bit values 
0004 177 <FNCTI.2>= 
0004 178 ph TF as 
0004 179 <FNCTS,8>- 
00 180 <STATUSA, 2048>- ; Define CSR STATUS bit values 
898 13) NO ag 
1 ¢ <STATUSC,512>- 
0004 184 : 
00 185 $VIELD XA_CSR,0,<- : Control/status register 
00 1 § <GO,,M>,- ; Start device 
00 1 <FNCT,3.M>, : CSR FNCT bits 
0 188 <XBA,2,M>,- : Extended address bits 
0 189 E,,M>, 3 Enable interrupts 
190 <RDY, ,M>,- ; Device ready for command 
191 <CYCLE, .M>, : Starts slave transmit 
198 <STATUS, 3,M>, = : CSR STATUS bits 
19 <MAINT, ,M>,- 3; Maintenance bit 
194 <ATIN, ,M>,> 3 Status from other processor 
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004 195 <NEX, ,M>,= 3; Nonexistent memory fla 
Bhe 138 s <ERROR, ,M>,- 3; Error or external. interrupt 
Bee 138 SDEF XA_EIR ; Error information register 
0004 89 ; Bit positions for error information register 
004 6 $SVIELD XA_EIR,0,<- :; Error information register 
0004 0 <REGFLG, ,M>,- ; Flags whether EIR or CSR is accessed 
0004 04 <SPARE,?,M>,= ; Unused - spare 
i 05 <BURST, ,M>,= ; Burst mode transfer occured 
004 86 <DLT,,M>,=- ; Time-out for successive burst xfer 
0004 0 <PAR,,M>,=- ; Parity error during DATI/P 
0004 08 <ACLO, ,M>,= ; Power fail on this processor 
0004 09 <MULTIE: M>,- ; Multi-cycle request error 
0004 10 <ATIN, ,M>,= ; ATTN = same as in CS 
0004 211 <NEX, ,M>,= 3; NEX = same as in CSR 
0004 \¢ <ERROR, ,M>,- ; ERROR - same as in CSR 
0004 1 > 
00000006 0004 14 -BLKW 1 
0006 215 ; 
0006 216 SDEF XA_IDR ; Input Data Buffer register 
0006 sie $SDEF XA_ODR ; Output Data Buffer register 
00000008 8008 18 -BLKW 1 
0008 220 SDEFEND XA : End of DR11-W definitions 
0000 21 
0000 222 
0000 223 
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5 -SBTTL Device Driver Tables 
; Driver prologue table 
DPTAB 


Oo 
Ooo 
Ooo 
Oo 


AMBODOOOOOCOSOOS 


DPT-creation macro 


END=HA, END. = End of driver Label 
ADA UBA,- Adapter type 
Tea se SVP Allocate system page table 
UCBSIZE=UCBSK_ size,- UCB size 
NAME=XADRIVE Driver name 
DPT_STORE INIT Start 


of load 
initialization table 


WWI WOOOOCOS 


. 
A 
‘ 

Tere Tere rere rere rere rerererererere yl 


DPT_STORE UCB,UCB$B_FIPL.B,8 Device fork IPL 
DPT-STORE UCB,UCB$B_DIPL,B,22 Device interrupt IPL 
DPT“STORE UCB. UCBSL “DEVCHAR,L Device characteristics 
DEVSM_AVL!=" ; Available 
DEVSMCRIM I~ Real Time device 
DEVSM_ELG!- Error Logging enabled 
hh lL al input device 
DEVSM_ODV output device 
DPT_STORE UCB; UCBSB _DEVCLASS,B,DC$_REALTIME 3 Ms dea class 
DPT “STOR uCcB, UCB$B_DEVTYPE B,DT$_BR11w ; Device T ype 
DPT = STORE UCB UCBSw DEVBUF SiZ.W,- : Default buffer size 


DPT_STORE 1A, BUFS 


DPT_STORE DDB,DDBS$L_DDT,D,XASDDT 
DPT“STORE CRB,CRBSL-INTD+4,D,- 


XA_INTERRUP 
DPT _ STORE ERB. e£RORL ITD vECSL. INITIAL,=- 
DPT_STORE “END 


Start of reload 

Init tal eetion table 
Address of DDT 

Address of interrupt 
service routine 
Address of controller 
initialization routine 
End of initialization 
tables 


3; Driver dispatch table 
DDOTAB 3; DOT-creation macro 
NAM=XA,- 3; Name of device 
ARTSKA STAR ; Start 1/0 routine 
NCTB=XR_ FUNCTABLE. - ; FDT address 
: Cancel 1/0 routine 


DEV 
S 
( 
R GDRP= XA~REGDUMP, = ; Register dump routine 
DIAGBE =<<T324>4<<$45+1>84>>,- Diagnostic buffer size 
j toer=<ct #4>4<144>+<EMBSL DY nictt ; Error log buffer size 


: Function dispatch table 
KA_FUNCTABLE : ; FDT for driver 
FUNCTAB , 


Valid 1/0 function 
<READPBLK , READLBLK ,READVBLK uns TEPBLK. WRITELBLK, URITEVBLK. - 
SE TMODE , SETCHAR, SENSEMODE , SENSECH 
FUNC No uttered, fynct tens 
FUNCTAB KAREAD WRI 


fic FDOT 
ADPBCK "REABLBLK READVBLK uns Eat, <WAITELBLK,W WRITEVBLK> 
FUNCTAB +EXESREAD, <READPBLK ,READLBLK,READVBLK 
FUNCTAB *EXESWRITE, <WRITEPBLK, URITELOLK. URITEVBLK> 
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8 r ee ~SBTTL XA_CONTROL_INIT, Controiler initialization 
084 7+ 
084 8 ; XA _CONTROL_INIT, Called when driver is loaded, system is booted, or 
8 ? 3 power failire recovery. 
084 31 : Functional Description: 
084 38 : 1) Allocates the direct data path permanently 
0084 94 ; 5 Assigns the controller data channel peraanantty 
084 79 3 Clears the Control and Status Registe 
+94 38 : If power recovery, requests device time-out 
Bae + : Inputs: 
0084 00 : R4 = address of CSR 
084 01; R5 = address of IDB 
0084 bs : R6 = address of DDB 
87 SF : R8 = address of CRB 
0084 305 ; Outputs: 
0084 307 : VECSV_PATHLOCK bit set in CRBSL 1 patna DATAPATH 
0084 08 ; UCB address placed into IDB$L_OQNE 
0084 09 ; 
0084 10 ; 
ie 
it 13 XA_CONTROL_INIT: 
50 18 AS DO 0084 15 MOVL ies gg DABS f RO ; Address of UCB 
04 AS 50 00 0088 1g MOVL IDB$L_OWNER(R5) ; Make permanent controller owner 
64 AO 10 AB b08¢ 1 BISW FUCBSR SORLINE. UCBSW_ STS(RO) 
94 13 Set device status ‘‘on-line’’ 
0090 0; If powerfail has occured and device was active, force device time-out. 
0090 1 : The user can set his own time-out interval for each request. Time- 
Bp ¢ ; out is forced so a very long time-out period will be short circuited. 
05 64 AO 4~(05~—~—=COEO Baee 3 BBS #UCBSV_POWER ,UCBSW_ STS(RO) rad . stati 
owerfa 
37 AB 80 BF 8B 0095 326 BISB _#VECSM_PATHLOCK, CRBSL_INFDsVECSB. DATRPATH CRB) 
Sea $f 108 ; Permanently allocate direct datapath 
0561 30 009A 323 " - BSBW = KA_DEV_RESET : Reset DRI1W 
05 0090 0 RSB 3 Done 
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-SBTTL XA_READ_WRITE, FDT for device data transfers 


FD 


+ 
XA_READ_WRITE, FDOT for R Seek »READVBLK ,READPBLK ,WRITELBLK,WRITEVBLK, 
; Functional description: 


1) Rejects QUEUE I/0's with odd transfer count 
2) Rejects QUEUE I/O's for BLOCK MODE request to UBA Direct Data 
PATH on odd byte, boundary 
3) Stores peques time-out count gooey cee in P3 into IRP 
4) Stores FNCT bits specified in P4 into IRP 
5) Stores word to write into ODR from pS into IRP 
6) Checks block mode transfers for memory modify access 
Inputs: 


COOQOQCOOOOoOOCOooCoOoooooooooooeso Vv=<« 
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1 
E 
4 : 
gi ; 
40 : ; 
HE 
23 
Ht 
47 
48 : 
49 Py 
50 ; R3 = Address of IRP 
51 : R4 = Address of PCB 
$26 ; RS = Address of UCB 
$2 3 R6 = Address of CCB 
54 : R8 = Address of FDT routine 
55; AP = Address of P1 
56 ; Pl = Buffer Address 
0O9E 57; P2 = Buffer size in byt 
OO9E 58 ; P3 = Request time-out “period (conditional on IO$M_TIMED) 
009 oy 8 P4 = Value for CSR FNCT bits (conditional on IOSM_SETFNCT) 
009E 60 : P5 = Value for ODR (conditional on IOSM_SETFNCT) 
BeoE 30 : P6 = Address of Diagnostic Buffer 
9943 368 3 Outputs: 
009E $03 : Error status if odd transfer count 
Q09E 66 ; TRP PSL MEDIA = Time-out count for this req 
43 $00 : ; IRPS$L_ SEGVBN = FNCT bits for DRI1-W CSR and SOOR image 
Of  370 
8 9E 71 XA_READ_WRITE: 
09 04 AC 9 9 i BLBC (AP) ,10$ ; Branch if transfer count even 
50 14 % QOA 7 gs: MOVZWL #SS$ BADPARAM, RO 3; Set error stetus code 
00000000'GF 17 OOA 74 5$: JMP *EXESAB 3; Abort request 
51 0A3 3 AB 75 10$: MOVZWL IRPSW POUCA R1 ; Fetch 1/0 Function code 
38 A308 aC D AF id: MOVL  P3(APY,IRPSL mEDLACRSD : Set request specific time-out count 
07 £0 00B4 37 BBS #10$V_TIMED,R1,15$ ranch if time-out specified 
8A3 OA OD 8 28 MOVL  &#XA DEF TIMEOUT, IRPSL _mebIACRS) 
C 7 3; Else set default timeout value 
1451 O8 €1 C 80 15$: BBC #10$V =pIAGNOSTIC R1,20$ ; Branch if not maintenance reqeust 
ns tt lua US ff oc 1 EXTZV #lOSV"FCODE,# #1085 FCODE Ay 1,R1 ; AND out all function modifiers 
rE 1 C ¢ CMPB #10$_READPBLK, : If maintenance function, must be 
bce 3 phy. 1/0 read or write 
A 13 C 4 BEQL 20$ 
51 4 ‘s 5 bron 540s. WRITEPBLK,R1 
50 64 x CF : MOVZWL ose -NOPRIV,RO : No privilege for operation 
D1 11 D2 8 BRB 5$ ; Abort request 
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208: EXTZV #0,#3,P4(AP) ,RO 
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Get v 
6VB 


oiye. for FNCT bits 
ASHL —-#XA_C&RSV_FNCT.RO, IRPSL_SEGVBN(R Shift into pos ition for CSR 
MOVW Be CRE). IRPSL_ sée TOTES ; Store obr value for 


If this is a block mode transfer, check buffer for e poeity access 
whether or not the function is read or write. does 
not decide whether to read or write, the users ieetes does. 

For word mode requests, return to read check or write check. 


If this is a BLOCK MODE request and the UBA Direct Data Path is 
in use, check the data buffer address for word alignment. If buffer 
is not word aligned, reject the request. 

BBS #10$V_WORD, IRPS$W_ FUNC(R3), sp 


“Bra 
BBS #XASV_DATAPATH, UCBSL -DEVBEBEND RS 


14: 
732: ) 
beg 


ater 


st ugre mode transfer 


; Bra eT) Buffered Data Path in use 
BLBS »,2$ 3 DDP. g Bd on bad alignment 
P SERESAODIFY : Checke buffer for modi y access 


we 
= 
= 


3; Return 
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Youn Out XA_SETMODE, Set Mode, Set characteristic 6-SEP-1984 98:33:83 LORIVER. SRCIXADRIVER.MAR; 2 . (6) 
: 219 ~SBTTL KXA_SETMODE, Set Mode, Set characteristics FDOT 
F 412 ;++ 
: ‘i$ ; MALSETMODE, FDT routine to process SET MODE and SET CHARACTERISTICS 
OF rE : Functional description: 
OF 219 3 If IOSM_ATTNAST modifier is set, queue attention AST for device 
OF 418 ; If IOSM_DATAPATH modifier is set, queue packet. 
OF 419 ; Else, finish 1/0. 
BE $80 | sepa 
3 Inputs: 
p F 4 ¢ : 
OF 425 ; R3 = 1/0 packet address 
OOF 424 ; R4 = PCB address 
OOF 425 ; R5 = UCB address 
OF 4 § § R6 = CCB address 
OF 427 ; R7 = Function co 
OOF 428 ; AP = Q10 Paramater List address 
OOF 429 ; 
OOF 430 ; Outputs: 
OOF8 431; 
OOF8 $36 3 If IOSM_ATTNAST is specified, queue AST on UCB attention AST List. 
OOF8 433; If IOSM_DATAPATH is specified, queue packet to driver. 
OOF8 434 ; Else, use exec routine to update device characteristics 
ite fa ; 
OOF 436 ;-- 
OOF8 437 
pore 438 XA_SETMODE: A 
50 20 A3 3C OOF 439 MOVZWL IRPSW_FUNC(R3) ,RO ; Get entire function code 
2850 «2(08—Sttsé€E; ta re C #1O$V_ATTNAST,RO,20$ ; Branch if not an ATIN AST 
0100 228 3 Attention AST request 
0100 44 
0090 8F BB 0100 444 PUSHR #*M<R4,R7> 
57 QOAO CS 9E& 0104 445 MOVAB UCBSL_XA_ATTN(RS) ,R7 ; Address of ATIN AST control block List 
00000000 ' GF 16 0109 446 JSB G*COMSSETATTNAST 3; Set up attention AST 
0090 8F BA 010F 447 POPR #*M<R4,R7> 
20 50 €9 0113 448 BLBC R : Branch if error 
68 AS) 01) «=—AB (0116) = 449 BISW  #UCBSM_ATTNAST,UCBS$W_DEVSTS(R5) 
011A 450 ° Flag ATTN AST expected. 
03 68 AS O01 €1 O11A 451 BBC #UCBSV_UNEXPT ,UCBSW_DEVSTS(R5 .10$ ; 
Q11F 136 ; Deliver AST if unsolicited interrupt 
045E 4 11F 45 BSBW DEL_ATTNAST 
50 01 A 1 ¢ 454 10$: MOVZBL #SS$_NORMAL,RO 3; Set status 
00000000'GF 17 1 H ce? JMP G*EXESF INISHIOC : Thats all for now (clears R1) 
128 re 3; If modifier IOSM_DATAPATH is set, 
128 $38 3 queue packet. The data path is changed at driver level to preserve 
1 ; $23 3; order with other requests. 
06 50 OA €E0 : ? $8) 20$: BBS S*#10$V_DATAPATH,RO,30$ ; If BDP modifier set, queue packet 
00000000'°GF 17 : F 48s JMP G*EXESSETCHAR 3; Set device characteristics 
! ; rt ; This *s a request to change data path useage, queue packet 


seth 


571A 

06 
00000000 ' GF 
50 4 


1 
00000000 GF 


= VAX/VMS_DR11-W DRIVER 


=SEP=19 


XA_SETMODE, Set Mode, Set erecverints “SEP-19 
467 30$: 


7 


3 


A 


46 


? 
? 
7? 
7 
7? 


is 


? 
5 


CMPL 
BNEQ 
JMP 


#10S_SETCHAR,R7 
G*EXESSETMODE 


; Error, abort 10 
MOVZWL #SS$_NOPRIV,RO 
CLR 1 


JMP 


G*EXESABORTIO 


Be 90:5 


4:45 aves Macro V04-00 
2:52 YORIVER. SRCIXADRIVER.MAR; 2 


; Set characteristics? 


No, must have the privelese 


; Queve packet to start 1/0 


; No priv for operation 
; Abort I0 on error 


Page : 


2 
6) 


_____.,-: er OO 
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v04-001 MA_START, Start 1/0 routines ~SEP-1984 2:52 CORIVER.SRCIXADRIVER.MAR;2 (7) 
ie ri 4 ee -SBTTL KXA_START, Start I/0 routines 
178 679 | : MA_START = Start a data transfer, set characteristics, enable ATIN AST. 
re ? 1 ; Functional Description: 
148 4 5 : This routine has two major functions: 
148 485 : 1) Start an 1/0 Grane ter. This transfer can be in either word 
0148 4 § § or block mode. The FNCTN bits in the DR11-W CSR are set. If 
0148 487; the transfer count is zero, the STA Tos. bits in the DR1i-wW CSR 
B28 4 3 : are read and request comp\et ted. 
148 489; 2) Set Character ~ Aas, If t @ function is change data path, the 
8128 a3 ; new data path flag is set 7 the UCB. 
S48 ohg : Inouts: 
0148 49% : R3 = Address of the 1/0 request packet 
nies oa? : R5 = Address of the UCB 
Bice rh : Outputs: 
0148 499 : a = final status and number of bytes transferred 
0148 500 ; = value of CSR = - bits and value of input data buffer register 
0148 501 : atel errors are ogged 
0148 ong : $ Diagnostic buffer +9 illed 
S1eB Hi : 
0148 505 ° -ENABL LSB 
0148 506 
te a4 XA_START: 
n143 203 3; Retrieve the address of the device CSR 
b1ea aif ASSUME IDBSL_CSR fe) .. 
54 24 A5 D0 0148 216 MOVL UCBSL~ CRB¢ Address of CRB 
54 2C B4 DO O14F 51 MOVL acresC_ tHIDSVECSL. IDB(R4S R 
8138 ate 3 , oe of CSR 
HB 218 ; Fetch the 1/0 function code . 
51 20 a3 3C€ 133 218 MOVZWL jerey cumie (8 R1 3; Get entire function code 
009A CS) «6551 = BO 20157 )~=—s 519 MOVW UCBSw (R5) ; Save FUNC in UCB for Error Logging 
52 51 06 00 EF B12 321 EXTZV FOS. reObE Aire FCODE, R1 RD: Extract function field 
3191 5 § ; Dispatch on function code. If this is SET CHARACTERISTICS, we will 
161 523 ; ag‘ect a data path for future use 
161 4; If this is a transfer function, it will either be processed in word 
191 5 ; or block mode. 
52 1A 91 = «=0161 2 § CMPB #10$_SETCHAR,R2 ; Set characteristics? 
23. 12 0164 8 BNEQ 3$ 
eH oe 
199 9: : SET CHARACTERISTICS = Process Set Characteristics Q10 function 
166 ¢ i INPUTS: 


L 16 
s 6 Haat 7 90: 45: $3 acro V04=00 age 


seta ut 


I< 
>™ 
Da< 
—=z 
Oe 7) 


tart 1/0 routines DRIVER.SRCJ IXADRIVER. MAR; 2 


XA_DATAPATH bit in Device Characteristics specifies which data path 
to use. If bit is a one, use bu’ fered data path. If zero, use 
direct datapath. 


OUTPUTS: 


CRB is ND BRE as to which datapath to us ‘ 
DEVDEPEND bits 52.8 cevige characteristics is updated 
= 1 => buffered data path in use 
XA PATAPATH = 0 -> direct data path in use 


WANN 
OCONEE 
Sete Ge Ge Se Se Sete Ge Se Sete 


MOVL  §UCBSL_CRB{R5),R Get CRB address 

MOVa IRPSL SS UCB$B_DEVCLASS(R rb) "eee device shorestertetios 
BISB #VECSM_PATHLOCK, CRBSL_INTD+VECSB_ DataPatn (RO) 

sume greets data ath 


BBC #XASV_DATAPATH, UCBSL_DEVDEPEND(R5) ie we 


40 as $8.83 9D 
37 AO) =—80 BF 8B 


5 44 AS. 00 1 
7 A0 «680 8F 4 


~m 
bad 


3; Return Success 


51 CLRL R1 
50.0 (01 C MOVZWL #SS$_NORMAL RO 
REQCOM 


:; If subfunction modifier for device reset is set, do one here 


3$: BBC $*#10$V pestt. R1,4$ ; Branch if not device reset 
BSBW KA_DEV_RESE ; Reset DR11-W 


3; This must be a data transfer function - i.e. aenp OR WRITE 
; Check to see if this is a zero length transfe 
3; If so, only set CSR FNCT bits and Soeure STATUS from CSR 


03 51 +08 3 
046E 


SOOOCOOOOOOOGOOQO COCO OSOOOOSOCSOOSSCSOSOSOOOOCOOOOOOCOOOOOOOOOOOOO 
ec ce ae ee a a ae ee ee ee ee ee ee a ed a a a a a a a a ad ad ad od a dD 
MMDIOVOOOOOODDDD PD \ PB S OOOO OOOO DO O09 0000.09 00 09 SII INNA AAPA AAA AAAAAAS 
OWT OWS BNNE ETM FDL HF MOUWOOOOOOSOS OOO OVUM M QP HMPAAOAAAAAAASAAAAO 


Ie ah ah hb db eb eb eb dab ch ehh eh bed beh eed becdh bedhead bechbedh bb —db-deb-db-dhb tbh th tb sh sh Ah sh ah Ab db Ab dh Ah dh dh bb sh Ab sh sh sh sb sh ah sh sh sb sh shes) 


5000090909 690909 69 09 69 SI NIN SSIS SN SPA AAA AAAAA MMIII BEEP EEE 
SODWNAUE WN @ O OOONAUES WIN SO OOD NAUE WN CO ODNAUE WN OO OONOUS WhO 


7E AS BS 4$ TSTW UCBSW_BCNT(R5S) ; Is transfer count zero? 
59 12 BNEQ 10$ 3; No, continue with data transfer 
2E 51 09 =«s«éE SSS INT S*#10$SV_SETFNCT,R1,6$ ; Set CSR FNCT specified? 
06 AS «644A AS BO OVW IRPSL_SEGVBN+2(R3) ,XA -ODR(R4) 
; Store word in ODR 
5 04 3¢ MOVZWL XA With RO 
50 ee 8F AA BICW #<RA_CSR $m. 4 ae CSRSM_ERROR> ,RO 
4 A8 BISW TRPSC SEGVBN( RO 
50 2000 8F As BISW #XA_CSRSM vee 3; Force ATTN on to prevent lost interrupt 
4 AG 39 B9 MOVW RO RA SR 
05 44 AS 1 E BBC #xASv~ LINK, UCBSL_DEVDEPEND(RS),.5$ ; Link mode? 
04 A6 50 04 AB ve BICw3 FXASK “FNCT2,RO,XA_CSR(R4) ; fake FNCT bit 2 a pulse 
6s ENBINT 
0528 30 BSBW KA _BEGISTER 3 Fetch DR11<W registers 
5 + BLBS RO,7 3 fT wy © then log it 
0000 "GF 6 JSB GTERL SDEVICERR ; Log a device error 
0 "GF 8 7$ JSB OC$D ILAGBUF Aut 3 l dtognostic Ou butter if specified 
4. OA 73 MOVL Ocesu. XA_CSR(R5) ,R1 3 Return C R1 
0 008 C MOVZWL UCBSu XA“ERROR(R5S),RO  : Return status if RO.” 
04 AG) 40 BF 8 1 UCSRSA_IE,XA_CSR(R4) : Enable device interrupts 


BISB 
REQCOM 


Request done 


Ce eel 


ri 
BiCB #VECSA _PATHLOCK, CRBSC_ INTD+VECS$B_ DATAPATHCROS 3 ant tadtered datapat 
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yaa XA_START, Start 1/0 routines grSEe13be Foi3i83 LORIE. eeaeabetuce.mars2 P29e 13, 
1E€ 1 
Hs $3 ; Build CSR image in RO for Later use in starting transfers 
1€E 594 108: 
50  7E AS 3¢ 1E 95 MOVZWL UCB$W_BCNT(RS) ,RO ; Fetch byte coun 
0084 cS) 650) sl(O2 SiC 4 3 DIVLS #2,RO,UCBSL_XA_ *DPR(RS) : Make byte count "sane word count 
ir 3 3 Set up UCBSW_CSRTMP used for loading CSR Later 
50 04 A6 3C O1FB 600 MOVZWL XA, CSRCRG) f9,, 
50 FFF 8F AA O1FC 601 BICW 
50 g040 FOB 4 60¢ BISW auht sti ‘n 4 “ASR, ATTN, RO Interrupt Enable and ATIN 
07 51 09 =«€E?1 6 6 BBC $7410 V SETEN NCTOR Set F net bits | 
50 ; AA 020A 604 BiCcw nb ; Yes "thked previous FNCT bits 
50 48 A3 88 0200 605 B1SB TRPSC a tig R OR in new value 
05 51 08 E1 0211 606 20$: BBC S*#10$V_DIAGNOSTIC,R1, 23h heck for maintenance function 
50 1000 8F A8 13 607 BISW = #XA_ CSRSR _MAINT,RO- Set maintenance bit in CSR image 
12 003 3; Is this a word mode or block mode aa 
OOAS €5 6550) «=6BO 2C(O21A) S611 238: MOVW RM.SICBSW_XA_CSRTMP(RS) Save CSR image in UCB 
03 51 06 a O21F 61g BBC § ,£0$V_QORB,R1,BLOCK “MODE: Check if word or block mode 
013A 1 0223 61 BRW WORD_M MOBE ; Branch to handle word mode 


vets 


SR SOSRS ABS 


VAX/VMS 
—5! ’ 


== 
WII nonorororornorororornononnrornnnnn st 


NMOS BO DW NWWIWIWWINWWh Sit 2 SS PODOAAAOAOAAAOOOOOOS 


0 
0 
0 
0 
0 
0 
024 
4 
uy 
024 
3C 024 
DO 024 
085 
Fe 055 
AB 025 
AB 025 
AB 026 
ns 26h 
BO 037 
027 
? 
7? 
f 
73 
? 
7 
7? 
75 
? 
? 
? 
? 
be 78 


t 


B 1 
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6-S 6: 


1/0 routines P=-1984 


o¢ 
: BLOCK MODE == Process a Block Mode (DMA) transfer request 
; FUNCTIONAL DESCRIPTION: 


: This routine takes the buffer address, buffer size, fucntion code 

; and function modifier fields from the IRP. It calculates the UNI BUS 
; address, allocates the UBA map registers, loads the DRii-wW device 

: registers and starts the request. 

8 


; Set up UBA 
; Start transfer 
LOCK_MODE: 
; If IOSM_CYCLE subfunction is specified, set CYCLE bit in CSR image 


BBC #10SV_CYCLE,R1,25$ : Set CYCLE bit in CSR? 
BISW #XA_CSRSM_CYCLE,UCBSW_XA{CSRTMP(RS) ; If yes, or into CSR image 


; Allocate UBA data path and map registers 


25$: 
REQDPR ; Request UBA data path 
REQMPR ; Request UBA map registers 
LOADUBA ; Load UBA map reqisters 


; Calculate the UNIBUS transfer address for the DR1i1-W from the UBA 
; map register address and byte offset. 


MOVZWL UCBSW_BOFF (RS) ,R1 ; Byte offset in first page of xfer 
MOVL UCBSL_CRB(RS) ,R2 ; Address of CRB 
INSV CRBSLINTD+VECSW_MAPREG(R2) ,.#9,89,R1 

; Insert page number 
EXTZV = -#16,#2,R1,R2 ; Extract bits 17:16 of bus address 
ASHL #XA_CSRSV_XBA,R2,R2 : Shift extended memeroy bits for CSR 
BISW #XA_CSRSM_GO,R2 ; Set “GO'' bit into CSR image ; 
BISW R2,0CB$W_RA_CSRTMP(RS) : Set into CSR pooge we are building 
BICW3 #<KA_CSRSM_GO!XA_CSRSM_CYCLE>,UCBSW_XA_CSRTMP(RS) RO 

; CSR_image less ‘'GO"’ and ‘CYCLE’ — 
BICW3 #XASK_FNCT2,UCBSW_XA_CSRTMP(RS),Re ; CSR image less FNCT bit 2 
MOVW R1,UCB$W_XA_BARTMP(RS) ; Save BAR for error logging 


At this ture: . ee *e ee 

RO SR image less ‘'GO"’ and ‘CYCLE 

R1 ow 16 bits of transfer bus address 

R2 SR saoge Less FNCT bit 

UCBSL_XA_DPR(R5) = transfer count in words : 
UCBSW_XA_CSRTMP(RS) = CSR image to start transfer with 


jun 


; Set DRI1-W registers and start transfer 
; Note that read-modify-write cycles are NOT performed to the DRii-w CSR. 

3; The CSR is oluers written Siroctty into. This prevents inadvertently setting 
3 the EIR select flag (writing bit 15) if error happens to become true. 

DSBINT ; Disable interrupts (powerfail) 
MNEGW UCBSL_XA_DPR(RS) ,XA_WCR(R4) 
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KMA_START, Start 1/0 routines 66-SEP-1984 16:32:5 DRIVER. SRCIJXADRIVER.MAR; 2 (8) 
67 ; Load negative of transfer count: 
2 a4 3 H4 8 $8 MOVW R1, XA_BAR(R4) ; Load low 16 bits of bus address 
AG 0 86 4 674 mcvy RO, KA_CSR(RG) : 43} ose image less ‘'GO"’ and ‘‘CYCLE”’ 
06 44 AS 91 E1 8 675 BBC #XASV“LINK,UCBSL_DEVDEPEND(R5),26$ ; Link mode? 
aa 52 80 D 676 MOV Re KA~CSR(RG) ; Yes, load CSR image less “FNCT’ bit 2 
06 11 4! of 268 BRB 126$ : Only it Link mode in dev characteristics 
06 AG «6M0AG CS)OBO $3 6 MOVW UCBSW_XA_CSRTMP(RS),XA_CSR(R4) ; Move all bits to CSR 
4 4 2 1 ; Wait for transfer complete interrupt. powerfail, or device time-out 
99 «6 : 1268 
8 4 ? : WFIKPCH KA_TIME_OUT,IRPSL_MEDIA(R3) ; Wait for interrupt 
O2A4 86 $ 3; Device has interrupted, FORK 
O2aG = 68 
8 ni ons 1OF ORK ; FORK to lower IPL 
or on ; Handle request completion, release UBA resources, check for errors 
7E O01 3C Q2AA 69 MOVZWL #SS$_NORMAL ,-(SP) ; Assume success, store code on stack 
00cO CS) = B4 8 AD 69 CLRW = UCBSO_XA_DPRN(RS) ; Clear DPR number and DPR error flag 
Bi 694 PURDPR ; Purge UBA buffered data path 
09 50 8 0287 695 RO,27$ ; Branch if no datapath error 
6— 6°54 BF C QO2BA 696 MOVZWL #SS$_PARITY, (SP) ; Flag parity error on device 
o0oc: cS O2BF 697 N UCBSQ_XA_DPRN+1(R5) ; Flag PDR error for log 
0084 (5) «651 «=O 02C3)«=— 698 278: MOVL R1,UCBSL-XA_DPR(RS) ; Save data path register in UCB 
0O EF 0O2C8 99 EXTZV #vEC$V_DATAPATH, - 3; Get Datapath register no. 
05 O2CA 00 #VECSS_DATAPATH,- : ie Error Log 
50 37 A3 02cB 701 CRBSL_INTD+VECSB_DATAPATH(RS) ,RO 
ooco cS 650 (90 «OO cf 70 MOVB RO,UCBSW_XA_DPRNTRS) ; Save for later in UCB 
50 ooaE CS O07 09 EF 02D3 70 EXTZV #9,#7,UCB$W-XA_BAR(R5).RO ; Low bits, final map register no. 
51 OOAB C5 bg 04 EF OQO2DA 704 EXTZV OS og -UCBSY_HA_CSR(RS) oR ; Hi bits of map register no. 
50 O2 9Q 51 FO O2E1 705 INSV R1,#7,#2,R0 : Entire map register number 
O1FO BF 50 B61 O2E6 706 CMPW 0; #496 : Is map register number in range? 
1A 16 QO2EB 707 BGTR 28 : No, forget it - compound error 
0088 C5 g260 DO 0 Ep 708 MOVL (R2)CRO],UCBSL_XA_FMPR(R5) ; Save map resisie> contents 
008C g D4 = O2F 709 CLRL UCBSL_XA_PMPR(RS) ; Assume no rv evious may register 
0 v7 O2F7 710 DECL RO ; Was there a previous may register? 
OF 09 EC O2F9 711 CMPV = AVEC SV_MAPREG, AVECSS MAPREG, = 
50 344A O2FC ay CRBSL_INTD+VECSW_MAPREG(R3) ,RO 
06 16 O2FF 71 BGTR ; No if gtr | ; 
00688 (5 6240 pO 0301 714 MOVL (R2)CRO],UCBSL_XA_FMPR(R5) ; Save previous map registvr contents 
0 = 715 28$: RELMPR ; Release UBA resources 
0 : at RELDPR 
6 : at ; Check for errors and return status 
00B0 ¢5 83 8 1 720 TSTw erate nA wa ins) ; ALL words transferred? 
1 1 721 BEQL 0$ : Yes 
€ 0204 8F 3C 19 7 § MOVZWL 9 #SS$_OPINCOMPL (SP) ;_No, {tag operation not complete 
08 O0A8 608 OF 1 1€ 723 308: BBC #XA_CSRSV_ERROR yraey XA_CSR(R5).55$ ; Branch on CSR error bit 
; c5 C 4 724 MOVZWL UCBSW_XA ERROR(RS),(SP) 3 Flag for controller/drive error status 
202 , 9 725 BSBW = KA_DEV_RESET ; Reset DR11-W ; 
6E ‘ ea | § 35$: BLBS (SP) ,40$ ; Any errors after all this? 
00000006" eF 6 eS JSB G*ERLSDEVICERR : Yes, log them 
0248 30 5 728 40$: BSBW DEL_ATTNAST ; Deliver outstanding ATTN AST's 
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tart 1/0 routines 6-SEP-1984 2:52 YORIVER. SREIXADRIVER.MAR:2 (8) 
729 JSB PS anal 3; Fill diagnostic buffer 
730 MOVL tp ; Get final device status 
731 MULW3o# Chey XA YER Cas). R1 ; Calculate final transfer count 
7 : ADDW ucésy BCAT« RS) 
7 INSV P1#16,#16,R : Insert into high byte of I0SB 
734 MOVL 3$u_KA 600 t Return CSR and EIR in [0SB 
735 BISB #rA_CSRSP_IE,XA_ tSrcrs) 3 Enable interrupts 
736 REQCOM 3 Finish request in exec 


1D! 
1D! 
1D 
10! 
10! 
10! 
10! 
10! 
10: 
10! 
10! 
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ee 
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KA_START, Start 1/0 routines 6-SEP-1984 16:32:52 (CDRIVER.SRCIXADRIVER.MAR;2 (9) 
6 7 8 
? ti ae -DSABL LSB 
69 ge) 3 WORD MODE -- Process word mode (interrupt per word) transfer 
69 748 > FUNCTIONAL DESCRIPTION: 
60 745 : Data is transferred one word at a time with an interrupt for each word. 
60 4 3 The request is handled separately for a write (from memory to DR11-W 
60 747; and a read (from DRli-W to memory). 
60 748; For a write, data is fetched from memory, loaded into the ODR of the 
rt 749 ; DR11-W and the system waits for an interrupt. For a read, the system 
6 750 ; waits for a DR11-W interrupt and the IDR is transferred into memory. 
60 751; If the unsolicited interrupt leg is set, the first word is transferred 
0360 3g 3 directly into memory withou waiting for an interrupt. 
0360 753 :-- 
0360 754 
0360 755 -ENABL LSB | 
0360 136 WORD_MODE : 
toe 75 | 
0360 758 
Beep 028 ; Dispatch to separate loops on READ or WRITE | 
52 0c 91 O364 761 CMPB 8 ©#10$_READPBLK,R2 ; Check for read function | 
6— 13 036 76 BEQL 30$ 
p302 76 
0365 764 ;++ 
bee2 oe? ; WORD MODE WRITE -- Write (output) in word mode 
0369 167 : FUNCTIONAL DESCRIPTION: , | 
Beee 769 : Transfer the requested number of words from user memory to 
0365 770; the DR11-W ODR one word at a time, wait for interrupt for each 
O365 771 word. | 
0365 ore i-- 
0365 77 
Beee 774 108: 
OODA 30 0365 775 BSBW MOVFRUSER ; Get two bytes from user buffer 
Beer 776 DSBINT 3; Lock out interrupts 
36— 777 ; Flag interrupt expected 
AG 51 BO 036 778 MOVW R1,XA_ODR(R4) ; Move data to DR11-W 
04 a6 00A4 C5 BO 0375 779 MOVW  UCBSW7XA_CSRTMP(R5).XA_CSR(R4) ; Set DRI1-W CSR 
07 4405 01 €1 0378 780 BEC #XASVILIRK,UCBSL_DEVDEPEND(R5S),15$ ; Link mode? 
04 a6 00A6 C5) «04S AB Cé0387D 281 BICW3 #XASKTFNCT2,UCBS@_XA_CSRTMP(R5S ,XA_CSR(R4) ; Clear interrupt FNCT bi 
84 7 : : Only if Tink mode specified 
? AF 15$: 
4 " 78s ; Wait for interrupt, powerfail, or device time-out 
er 788 WFIKPCH XA_TIME_OUTW, IRPSL_MEDIA(R3) 
: has : Check for errors, decrement transfer count, and Loop til complete 
i 791 I1OF ORK ; Fork to lower IPL 
OOAA CS 5E00 BF BS , BONE y BITW #XA_EIRSM_NEX!- 
9¢ 079 XA_EIRSM_AULTI!- 
39C = 794 XA_EIRSM_ACLO!- 
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05 68 AS 
14 
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DOOM NOOe 
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16-SEP-1984 
1/0 routines 6-SEP-1984 
XA_EIRSM != 
XA_EIRSM 
BEQL e0$ 
BRW 40$ 
20$: DECW 1 tli 


3; ALL words read or written i 


00: 35:33 AX/VMS Macro V04-00 
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PAR! 
“DLT, UCBSW_XA_EIR(RS) ; Any errors? 


; No, continue 
; Yes, abort transfer. 

; ALL words trnasferred? 
3; No, loop until finished. 


Transfer is done, clear sterrupt expected flag and FORK 
n 


*DPR(RS) RI 


RETURN_STATUS: 
J$8 G* 1OCSO1AGBUF ILL 
BSBw DEL_ATTNAST 
MOVZWL #SS$_NORMAL,RO 
228: MULW #2, UCBSL_x 
SUBW R 
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A 
Ri -UCBSU-BCAT (RS) Ri 


# e 6 R 
MOVL UCBSW_XA_CSR(RS),R1 


BISB 
REQCOM 


#XA_CSRSA_IE,XA_CSR(R4) 


RD MODE. Finish 1/0. 


Fill diagnostic buffer if present 
Deliver enetentrng ATTN AST's 
Complete success status 

Calculate actual Hi boy x fered 
From requested number of bytes 
And place in high word of 

Return CSR and EIR status 

Enable device interrupts 

Finish request in exec 


Sete Se Ge Ge Ge Ge Be Se 


++ 
WORD MODE READ -- Read (input) in word mode 


FUNCTIONAL DESCRIPTION: 


Transfer the requested number of wrods from the DR11-W IDR into 
user memory one word at a time, wait for interrupt for each word. 
If the unexpected (unsolicited) interrupt bit is set, transfer the 
first (last received) word to memory without waiting for an 


interrupt. 


30$: 


DSBINT UCBSB_DIPL(RS) 


; If an unexpected (unsolicited) interrupt has occured, assume it 
: is for this READ request and return value to user buffer without 


waiting for an interrupt. 
BBCC #UCBSV_UNEXP 
ENBINT 
BRB 


UCBSW_BEVSTS( 


37$ 


32$: 
35$: 
; Wait for interrupt, powerfail, or device time-out 

WFIKPCH XA_TIME_OUTW, IRPSL_MEDIA(R3) 
Check for errors, decrement transfer count and loop until done 


SETIPL #IPL$_POWER 


IOF ORK 


T,- 


RS) 328 


; Lock out interrupts 


; Branch if no unexpected interrupt 
; Enable interrupts 
3; continue 


; Fork to lower IPL 


P 0 
” 2, 
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YOeeOOr KA_START, Start 1/0 routines pat et 9 Ob: 45:8 DRIVER.SR REI XADRIVER.MAR;2 a (9) 
Fe 37$: 
OOAA C5 5E00 BF B3 F BITW @XA_EIRSM_NEX!- 
FF XA_EIRSM_MULTI!- 
FF ¢ XALEIRSM_ACLO!= 
FF 2$ XA “EILRSA_ PAR! - 
FF 5 XA-EIRSM_DLT,UCBSW_XA oer 3; Any errors? 
27 13 FF 28 BNEQ 408 Yes, abort transfer. 
0046F 3 rtd 23 BSBW MOVTOUSER ; Store two bytes into user buffer 
rt 4 re ; Send interrupt back to sender. ie aa we got last word. 
404 8 DSBINT 
06 AG a 6% BO 40A 64 MOVW UCBSW_XA CSRTMP(RS) ,XA_CSR(RS) 
07 ott 1 19 65 BBC #XASV-LINK ,UCBSL_DEVD DEPEND (RS) 38$ ; Link mode? 
04 AG AB 0415 66 aa BICW3 #XASKIFNCT2,UCBSQ_XA_CSRTMP(RSS XA XA_ESR R(R4) ; Yes, clear FNCT 2 
0084 (5 B7 0461C¢ 68 DECW YE Eee MA_SPRIRS) Decrement transfer count 
c> te r ; 3 ENBINT $ 3 Loop until all words transferred 
id, ae 8 3 14 BRW RETURN_STATUS ; Finish request in common code 
0428 ie Error detected in word mode transfer 
0428 74 
0428 75 40S: 
0155 3 0428 a7$ BSBW DEL_ATTNAST ; Deliver ATTN AST's 
0100 0 0428 77 BSBW XA_BEV_RESET ; Error, reset DR11-W 
QO000000'GF 16 O042E 878 JSB G TOE SD LAGBUF ILL ; Fill diagnostic patted if presetn 
00000000'GF 16 0434 144 JSB G*ERLSDEVICERR 3; Log device error 
2 ¢5 3 043A 80 MOVZWL UCBSW_XA_ERROR(R5),RO ; Set controller/drive status in RO 
FF71 1 O643F 881 BRw 228 
044 +t 
044 88 -DSABL LSB 
044 884 : 
bce $8? 3 3; MOVFRUSER - Routine to fetch two bytes from user buffer. 
044 887 : INPUTS: 
044 388 ; 
044 889 ; RS = UCB address 
044 90 : 
044 91 : OUTPUTS: 
044 3g : 3 
04 9 : Ril = Two bytes of data from users buffer 
ate i 3 Buffer descriptor in UCB is updated. 
Gee 96 -ENABL LSB 
44 97 MOVFRUSER: 
51 7E DE 044 98 MOVAL <=-(SP),R1 ; Address of temporary stack loc 
52 02 9A 044 344 MOVZBL #2,R : Fetch two bytes 
00000000'SF 16 0448 00 JSB G* [OCSMOVFRUSER : Call exec eg be to do the deed 
51 8E&€ DO O44E sf MOVL (SP)+,R1 : Retreive the b ytes 
OE 11 $21 it BRB 3; Update UCB buffer pointers 
$2 Bhe : MOVTOUSER - Routine to store two bytes into users buffer. 
45 $06 ; INPUTS: 
45 2 ; 
045 908 ; RS = UCB address 
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Rive KA_START, Start 1/0 routines 6-SEP-1984 1 98 ‘43: $3 YORIVER. SRCIXADRIVER.MAR; 2 . 28) | 


UCBSW_XA_IDR(R5) = Location where two bytes are saved | 


Ww 
oO 
ow 


10: 
4 3 OUTPUTS: 
31 : Two bytes are stored in user buffer and buffer descriptor in | 
Bie 3 3 UCB is updated. 
316 hovtouseRr: 
sootstoo'® £3 +43 4} asad A Be Oey HATER CRS) 3; Address of internal buffer 
O0000000'GF 16 319 JSB arte ; Call exec 
| 920 208 i Update buffer pointers in UCB 
7¢ ge AO 921 ADDW 2 ,UCBSW_ BOF  (R5) Add two to buffer descriptor 
7¢ AS teoo Fo OAA 9 : BICW aSECHOIF, UCBSW perreak ; Modulo the page size 
3 9 BNEQ $0$ :; If NEQ, no page boundary crossed 
78 AS) 6046—Cti«CCO 4 : ADDL #4, ,UCBSL_SVAPTE (RS) ; Point to next page 
% 
38 
928 


| oe 
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oonteteag O' 


50 


Phy 
54 


04 


4 AS 
C B4 


11 


$44 MAA WOO 
FEO —OOoeecoooe 


~ 
<= 


PRIPTIPOPIPININININIPUPIPONIPON Mm 


SRRRRELREEREEEREERER <£ 
Far at ek et et et ek ek ek ee ee ee 


ONS OO 
ore 


oOo 
= 


048 


< 


—9 
om 


WDOODOOOOOOOOVOOOVOOOOOOOOOOOOOOOOO mm 


PPP rr Be BS BS BEE EAN 
AO ODONAUE WN 0 OD NOU EW" OOONOUES wh 1 I 


—— 
=z 


mo 
‘xz 


ou 
c<= 
-—m 

po) 


-SBTTL 


.ENABL 
KA_TIME_OUT: 


SETIPL 
PURDPR 
RELMPR 
RELDPR 
BRB 


XA_TIME_OUTW: 
SETIPL 
10$: MOVL 


MOVZWL 
208: CLRL 


REQCOM 
-DSABL 


SSEp= 1986 16:5 


DRI1-W DEVICE TIME-OUT 


+ 

DRil-W device TIME-OUT 
If a DMA transfer was in progress, release UBA resources. 
For DMA or WORD mode, deliver ATTN AST' 
and do a hard reset on the controller. 


Clear DRil-W CSR 
Return error status 


LSB 


UCBSB_FIPL(RS) 


10$ 


UCBSB_FIPL(R5) 
UCBSL_CRB(R5S) ,R 


4 . 
@CRBSC_INTD+VECS$L_IDB(R4S ,R4 


XA_REGISTER 
G*TOCS$DIAGBUF ILL 
G*ERLS$D VICTMO 


UCBSW_DEVSTS(R5) 


; Cle T flags 
#<UCBSM TIM'UCB$M_INT!UCBSM TIMOUT! UCBSM_CANCEL ! UCBSM_POWER>,- 
UCBSW_STS(R5) : ct 


LSB 


4:45 VAX/VMS Macro v04-00 
2:52 (CORIVER.SRCIXADRIVER.MAR;2 


s, log a device timeout error, 


Power failure will appear as a device time-out 


Time-out for DMA transfer 


Lower to FORK IPL 

Purge buffered data path in UBA 
Release UBA map registers 
Release UBA data path 

continue 


; Time-out for WORD mode transfer 
; Lower to FORK IPL 


Fetch address of CSR 


Read DR11-W registers 


; Fill diagnostic buffer 
; Log device time out 

; And deliver the AST's 
; Reset controller 

; Assume error status 


; Branch if not cancel 
; Set status 


ar ATTN AS 


ear unit status flags 
Complete 1/0 in exec 


ree 3, 


ee 


aie it 
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-SBTTL XA_LINTERRUPT, Interrupt service routine for DR11-W 


975 344 
358 ; KALINTERRUPT, Handles interrupts generated by DR11-W 
978 : Functional description: 
980 : This routine is entered whenever an interrupt is generated 
981 ; by the DRil-W. It checks that an interrupt was expected. 
9 ¢ : If not, it sets the unexpected (unsolicited) interrupt flag. 
| 985 ; ALL device registers are read and stored into the UCB. ; 
984 ; f an interrupt was expected, it calls the driver back at its Wait 
985 ; For entorryst point, 
4 $ : Deliver ATTN AST's if unexpected interrupt. 
| 988 ; Inputs: 
990 ; OO(SP) = Pointer to address of the device IDB 
| 991 ; 04(SP) = saved RO 
| ; HS = saved Ri 

995 ; 12(SP) = saved R 

994 ; 16(SP) = saved R 

995 ; 20(SP) = saved R4 

996 ; 4(SP) = saved R5 
| 997 : (SP) = saved PSL 
| 998 ; 2(SP) = saved PC 
4 : Outputs: 
| O08 : The driver is called at its Wait For Interrupt point if an 

1003 ; interrupt was expected. 
| H $44 : The current value of the DR11-W CSR's are stored in the UCB. 

1006 ;-- 
1007 KA_INTERRUPT: ; Interrupt service for DR11-W 
54 9E& 00 1008 MOVL a(SP)+,84 ; Address of IDB and pop SP 
54 64 7D 1393 mova (RO) RS ; CSR and UCB address from IDB 
1011 ; Read the DR11-W device registers (WCR, BAR, CSR, EIR, IDR) and store 
19g 3; into UCB. 
| 0021 30 44 a BSBW XA_REGISTER ; Read device registers 
| 404 1 16 3; Check to see if device transfer request active or not 
404 1017 ; If so, call driver back at Wait for Interrupt point and 
| 102 1918 ; Clear unexpected interrupt flag. 
| 0D 64 AS 01 ES 04D4 18 0 208: BBCC #UCBSV_INT,UCB$W_STS(R5) ,25$ ; 
44 : 1 : If clear, no interrupt expected 
4 t § 3 patorrupt expected, clear unexpected interrupt flag and call driver 
} e . 
409 1025 
| 68.AS 02 AA 0409 1006 BICw  #UCBSM_UNEXPT,UCBSW_DEVSTS(RS) 
40D 1 ; Clear unexpected interrupt flag 
53 10A5 00 Q4DD 1 3 MOVL UCBSL_FR3(R5) ,R3 ; Restore drivers R3 
| 0c BS 16 04E1 1 JSB aUCBSC_FPC(RSS : Call driver back 
C 11 0Q4€4 1030 BRB 30$ 


og 


K 1 
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XA_LINTERRUPT, Interrupt service routine “SEP-1984 16:32:52 (DRIVER. SR CIXADRIVER.MAR; 2 (11) 
4E6 1031 
“fe 1 ¢ ; Deliver ATTN AST's if no interrupt expected and set unexpected 
rt} | 1 ; interrupt flag. 
4E6 1034 
4E6 1035 25$: 

68 AS (0 AB Q4E6 1 $ BISwW #UCBSM_UNEXPT ,UCBSW_ per ® Set Re Le interrupt flag 
8 Hy 4EA 18 BSBw DEL_ATTNAST Deliver A 
04 AG) 40 BF 8 rt ! 3 BISB #XA_CSRSM_IE,XA_CSR(R4) ; tale fans interrupts 
rd 1966 ; Restore registers and return from interrupt 
ae 1906 30$: 
3F) BA O(O4F2 «(104 POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore registers 
02 O4F4 1044 REI ; Return from interrupt 


a a 
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oeeday" KALREGISTER = Handle DRIV-W CSR transfer \S-SEP=1986 16:32:52 EDRIVER.SREKADRIVER.MAR:2 °° (43) 
oF , __ sSBTTL_ XALREGISTER ~ Handle DRI1-W CSR transfers 
MA_REGISTER = Routine to handle DR11-W register transfers 
res INPUTS: 
4F R4 = DRii-W CSR address 
res R5 = UCB address of unit | 
4F OUTPUTS: 


CSR, EIR, WCR, BAR, IDR, and status are read and stored into UCB. 
The DRil-w is placed in its initial state with interrupts enabled. 
®N = .true. if no hard error 

false. if hard error (cannot clear ATTN) 


Be Se Se Ge Se Ge Ge Se Ge Ge Se Ge Se Ge Ge Se Sse Se Se Se Se Se Se 
+ 
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104 
104 
: 4 
108 
105 
105 
105 
FS 105 
105 
04F5 105 
4F 192 
GF 105 
4F 106 
04F5 106 
04F5 106 , 
O4F5 106 If the <SR ERROR bit is set and the associated condition can be cleared, then 
O4F5 1064 ; the evror is Erenstens and recoverable. The status returned is SS$_DRVERR. 
04F5 106 If te CSR ERROR bit is set and cannot be cleared by clearing the CSR, then 
O4F5 106 this is a A error and cannot be recovered. The returned status is 
oe 138 SS$_CTRLERR. 
O4F5 106 RO,R1 = destroyed, all other registers preserved. 
04F5 1070 ;- 
04F5 107 : 
04F5 1072 XA_REGISTES: 
04F5 107 
50 01 Hs 04F5 107 MOV2NL #SS$ ROR 5 RO 3; Assume success 
51 04 a4 3C O4F 107 MOVZ2Wi XA_CSR( ; Read CSR 
O0OA8 C5) 51 BO O4F 107 MOVW a1 -Geesu. xh RE SRCRS) ; Save CSR in UCB 
05 51 OF 1 0501 107 BBC HEA osesy ERROR, R1,55$ ; Branch if no error 
50 O08C 8F C 0508 107 MOVZ2WL #SS$_D ; Assume “drive’’ error | 
51 FFF1 8F AA QSOA 1079 558: BICW # ecRAS YERSAY FN ; Clear all Meer E18. flog bits for later 
05 AG = sBO «BF 88 OSOF 108 BISB #<XA Cohen. ERROR) 28c> XA * pry Set EIR flag 
OOAA CS 04 06 BO 0514 1081 MOVW = KA_E =u°BSW_XA_EIR (RS) ; Save EIR in UCB | 
94 AG 31 BD O3IA 1088 movy = RITE a cencRe) ; Clear EIR tee” and errors | 
1 04 44 B0 b235 108 MOVW A CSRER R4),R1 ; Read CSR back 
05 51 + OD 1 05 Ht: BBC WYK CSRS$V_ATIN,R1,60$ : If attention still set, hard error 
50 0054 8F 3¢ 0526 1085 MOVZWL #SS$_CTRLERR,RO lag hard controller error 
OOAC C5 «06 AS) BO (0528 «(1086 60S: MOVW XA_IDR(R4),UCBS$W_XA_IDR(RS) ; Save IDR in UCB 
OOAE C5 02 AG BO 0531 1087 MOV KA ~BAR(R4) UCB ua “BAR(R5) 
0080 (5 64 B80 0537 1088 MOV WCR(R4) ,UCBSW_XA _WCR(R5S) 
00B2 (5 6550 B80 053c 1089 MOV ROT UCBSW_XA VERRORCRS) 3; Save status in UCB 
05 0541 1090 RSB 
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1 3 oe ~SBTTL XA CANCEL, Cancel 1/0 routine 


42 1093; 
: i Be ; KALCANCEL, Cancels an 1/0 operation in progress 
34 1 38 : Functional description: 
42 1 38 : Flushes Attention AST queue for the us 
2 + 4 3 fi woh tin in progress, do a device resnt to DR11-W and finish the 
34 1 1: Clear Lacorrupt expected flag. 
084 1} 5 : Inputs: 
542 1105 : R2 = negated value of channel index 
B3¢ 1198 3 R35 = address of current IRP 
54 118 3 R4 = address of the PCB request ine the cancel 
0542 1108 ; RS = address of the device‘s 
0542 1109 ; 
0542 1110 ; Outputs: 
0542 1111; 
o863 1419 | 
B2e Wie MXA_CANCEL: ; Cancel 1/0 | 
00 £5 054 1116 BBCC $#UCBSV_ATTNAST,- 
16 68 AS 0544 uW UCBSW “BEVSTS(R5), 20$ =; ATTN AST enabled? 
9267 1118 3 Finish all ATTN AST'’s for this process. 
0C4 Be 547 1121 PUSHR #*M<R2,R6,R7> | 
6 ¢ i) 548 11 ¢ MOVL ; Set up channel number 
57 QOOAO C 9E 268 11 MOVAB UCBS$L_XA_ATTN(RS) ,R7 : Address of Listhead 
00000000'GF 16 0553 1124 JSB G*COMSFLOSHATINS : Flush ATTN AST's "toe process 
00C4 8F BA 3228 1 5 POPR #*°M<R2,R6,R7> 
0550 11 $ 3; Check to see if a data transfer request is in progress 
0550 1128 ; for this process on this channel 
$338 118 os 
0550 1131  DSBINT UCBS$B_DIPL(RS) : i Lock out device interrupts 
00000000 ' GF 6 826% 1} ¢ Jse § JOCSCANCEL JO Check if transfer going 
OD 64 A5 peek iy ¢ UCESW STS CRS). 30S ; Branch if not for this guy 
8 i 6 : Force timeout 
6C AS 4 36F 1138 ° CLRL ucBst DUETIM(RS) clear timer 
64 AS 1 AB 0572 1139 BISW Bsn TIM, UCBSW_ STS(RS)* 3: set timed 
0040 8F AA 0576 1140 BICW FUCBSR et iMOUT. - | 
64 AS 7A 161 508 UCBSW_STS(R5) ; Clear timed out 
57C 1148 ; ENBINT ; Lower to FORK IPL 
05 O57F 1144 RSB ; Return | 


ee 
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rye DEL_ATTNAST, Deliver ATTN AST's 65-SEP-1984 98:33:83 DRIVER. SRCIXADRIVER.MAR; 2 . Gay vO 
| 1147 -SBTTL DEL_ATTNAST, Deliver ATTN AST's 
1148 ;4+ 
1145 ; DEL_ATTNAST, Deliver all outstanding ATTN AST's 
| 1 ; ; Functional description: 
5 11 g : This routine is used by the DR11-W driver to deliver all of the 
| 5 1154 ; outstanding attention AST's. It is copied from COMSDELATINAST in 
5 1195 3 the exec. In addition, it places the saved value of the DRil-W CSR 
5 1 8 5 and Input Data Buffer Register in the AST paramater. 
; 0 1 3 ; Inputs: 
| 380 1160 : RS = UCB of DR11-W unit | 
5 1162 ; Outputs: | 
| 63 1188 ; 
0580 1164 ; RO.R}.R2 Destroyed | 
b28p 1192 : R3,R4,R5 Preserved 
0580 1187 DEL_ATTNAST: 
05 ! 1168 DSBINi UCB$B_DIPL(RS) ; Device jee 
4968 AS 00 €5 05 1169 #UCBS$U_ATTNAST ,UCBSW_DEVSTS(R5) , 30$ 
| 058C 1170 3 Any ATTN AST's expected? | 
38 8=6BB B28e 1171 PUSHR #*M<R3,R4,R5> 3; Save R3,R4,R5 
51 O08 AE 00 05 11% 10$: MOVL . ; Get address of UCB 
52 Q9A0 C1 9€ 0592 117 MOVAB UCBSL_XA_ATTN(R1) ,R2 3; Address of ATIN AST Listhead 
¢ 9 0597 1174 MOVL  (R2),R5 ; Address of next entry on List 
13 OS9A 1175 BEQL ; No next entry, end of loop 
68 Al oe AA 059C 1128 BICW #UCBSM UNEXPT ,UCBSW_DEVSTS(R1) 3; Clear unexpected interrupt flag 
62 6 dO ae 117 MOVL (R5) , (Re) ; Close List 
1€ AS OOAC C1 BO O5A3 1178 MOV  UCBSW_XA_IDR(R1) ,ACBSL_KAST+6(R5) 
Ea9 «1179 ; Store IDR in AST paramater 
1C AS OOA8 C1 BO O5A9 +} MOVW UCB$W_XA_CSR(R1) ,ACBSL_KAST+4(R5) 
peat 1181 3; Store CSR in AST paramater 
DC AF QF OQSAF 1136 PUSHAB 6“10$ ; Set return address for FORK 
b288 1 FORK 3; FORK for this AST | 
0388 1186 ; AST fork procedure 
10 AS 18 AS) 7D (0588 «1187 MOVO —«ACBSL_KAST(RS) ,ACBSL_AST(RS) | 
58D 1138 ; Re-arrange entries 
OB AS 30 AS °° 58D 1189 MOVB ACBSL_KAST+8(R5) ,ACB$B_RMOD(R5) 
OC AS 6 Ad D He 1190 MOVL ACBSL_KAST+12(R55 ,ACBSC_PID(RS) 
18 A 04 5¢ 1191 CLRL ACBSL_KAST(R5) F 
52 01 QA OS5CA 1136 MOVZBL #PRI$ IOCOM,R2 ; Set up priority increment 
| 00000000'GF 17 Bat BS JMP G*SCHSQAST 3; Queue the AST | 
| 38 =6OBA 388 1195 eos PO #*M<R3,R4,R5> ; Restore registers 
B20 ites 0$ ENBINT 3; Enable interrupts 
05 0508 119 RS 3; Return 
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l-W register dump routin 6=SE&°-1984 
-SBTTL XA_REGDUMP = DR11-W register dump routine 

KA_REGDUMP = DRI1-W Register dump routine. 

This routine is called to save the controller registers in a specified 


It is called from the device error logging routine and from the 
diagnostic buffer fill routine. 


16-SEP-1984 00:14:45 YAX/VMS Macro v04-00 P 9 xDD 
98: 2:52 DRIVER. SRCIXADRIVER.MAR; 2 ne 3) v04 


RO = Address of register save buffer 
R4 - Address of Control and Status Register 
RS - Address of UCB 


The controller registers are saved in the specified buffer. 


CSRTMP = The Last command written to the DR1i1l-W CSR by 


he driver. 


by t 
BARTMP - The last value written into the DR11-W BAR by 


ERROR 


the driver during a block mode transfer. 
The CSR image at the last interrupt 
The EIR image at the Last interrupt 
The IDR image at the last interrupt 
The BAR image at the last interrupt 
Word count register 
- The system status at request completion 


PDRN = UBA Datapath Register number 


DPR = 


The contents of the UBA Data Path register 


FMPR = The contents of the last UBA Map register 
PMRP = The contents of the previous UBA Map register 
DPRF = Flag for purge datapath error 


#11, (R 
U BS 


(R1)+ 


UCBSW_ 
R 


(R1)¢ 


UCBSW_ 


0 = no purger datapath error 
1 = parity error when datapath was purged 


Note that the values stored are from the last completed transfer 
operation. If a zero transfer count is specified, then the 
values are from the last operation with a non-zero transfer count. 


0)+ ; Eleven registers are stored. _ 
XA_CSRTMP(RS),.R1 ; Get address of saved register images 
; Return 8 registers here 
(RO)+ 
; Move them all ; 
XA_DPRN(R5),(RO)+ ; Save Datapath Register number 
; And 3 more here 
(RO)+ : Move UBA register contents 
XA_DPRN+1(R5),(RO)+ ; Save Datapath Parity Error Flag 


ae 


07 

05 a4 10 

05 A4 

04 AG «40 BF 
07 


= VAX/VMS 
KA_DEV_RES 
rH 
FE 
FE 
4: 
FE 
sre 
cre 
SFE 
sre 
OSFE 
OSFE 
OSFE 
SFE 
SFE 
SFE 
OSFE 
BB OSFE 
0600 
90 0606 
94 060A 
0600 
0600 
060D 
060D 
0628 
90 0628 
0333 
BA 06 
0635 
05 0635 
pose 
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T = Device reset DR11-W paneer 93:35:33 DRIVER. SRCIXADRIVER.MAR; 2 = (16) v04 
! § ee -SBTTL KXA_DEV_RESET = Device reset DR11-W 

: ; KMA_DEV_RESET = DR11-W Device reset routine 

1260 ; This routine raises IPL to device IPL, performs a device reset to 

: $3 ; the required controler, and re-enables device interrupts. 

: es : Inputs: 

1265 : R4 = Address of Control and Status Register 

: $6 3 R5 = Address of UCB 

68 ; Outputs: 

: 79 : Controller is reset, controller interrupts are enabled 

1272 j-- 

127 

: ie MA_DEV_RESET: 

127 PUSHR #*M<RO,R1,R2> ; Save some registers 

127 DSBINT ; Raise IPL to lock all interrupts 

1278 MOVB #<XA_CSRSM_MAINT/256>,KA_CSR*1(R4) 

: a CLRB KA_CSR+1(RZ) 

168) ; *** Must delay here depending on reset interval 

1388 TIMEDWAIT TIME=#XA_RESET_DELAY ; No. of 10 micro-sec intervals to wait 
1285 MOVB #XA_CSRSM_IE,XA_CSR(R4) ; Re-enable device interrupts 

1286 ENBINT ; Restore IPL 

: Hi POPR #*M<RO,R1,R2> ; Restore registers 

1289 RSB 

1290 : 

1291 KA_END: ; End of driver label 

1292 - END 
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| KADRIVER = VAX/VMS DR1l-W DRIVER i a 3 Sat 9 90: 4:45 VAX 
|Psect synopsis 6-SEP-1984 16:32:52 CDRIVE 
Reet tee e nner ra ae a 
: Psect synopsis ! 
omen eee en am on aaa o 
PSECT name Allocation PSECT No. Attributes 
ABS. 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL 
$aBS$ 90000 C2 ( 194.) 01 ¢ 1.) NOPIC USR CON ABS LCL NOS 
$$$105_PROLOGUE 0000064 ( 100.) 8 ( ¢°} NOPIC USR CON REL LCL NOSHR 
$$$115_DRIVER 00000636 ( 1590.) ( -) NOPIC USR CON REL LCL NOSHR 
teem mnwneanmanareocaenes wm eecose 
H Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 35 00:00:00.04 90: 0000-6) 
C processing 141 00:00:00.43 00:00:0 24 | 
Pass 1 551 Ses Set ET ss 
Symbol table sort 0 88:83:06. 9 00:00:09.38 
Pass 2 236 00:00:035.61 00:00:15.02 
Symbol table output 24 00:00:00.14 00:00:00.24 
Psect synopsis output 3 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 992 00:00:22.87 00:01:20.22 


The working set Limit was 2100 pages. : 

135207 bytes (265 pages) of virtual memory were used to buffer the intermediate code. 

There were 120 pages of symbol table space allocated to hold 2188 non-local _and 58 local symbols. 
1292 source Lines were read in Pass 1, produc ing 20 object records in Pass 2 

53 pages of virtual memory were used to define 50 macros. 
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Macro Library name 


-$255$DUA28: CSYS.OBJILIB.MLB; 1 35 
$255$DUA28: CSYSLIBISTARLET.MLB;2 1 
TOTALS (all Libraries) 4 


2463 GETS were required to define 47 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:XADRIVER/OBJ- OBJ$:XADRIVER MSRC$:XADRIVER/UPDATE=(ENHS$: XADRIVER) +EXECMLS/LIB 
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